home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGSBF10.ZIP / MKUSRLST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-11-18  |  5KB  |  187 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   TSTRING007(19)
  33.     String   STRING008
  34.     String   STRING009
  35.     String   STRING010
  36.     String   STRING011
  37.     String   TSTRING012(3)
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     STRING002 = "AcaDe v1.03"
  42.     STRING003 = "<┤EGiS Corp Anti-Decompilation Engine."
  43.     STRING004 = "(C)1994 By Lone Runner/AGS"
  44.     STRING005 = ""
  45.     STRING006 = "Sorry dude, this time PPLD will not do the job... :)"
  46.     FOpen 1, PPEPath() + "EXCLUDE.LST", 0, 0
  47.     INTEGER002 = 0
  48.     For INTEGER001 = 0 To 19
  49.         FGet 1, STRING008
  50.         If (Trim(STRING008, " ") <> "") Then
  51.             TSTRING007(INTEGER002) = STRING008
  52.             Inc INTEGER003
  53.             Inc INTEGER002
  54.         Endif
  55.     Next
  56.     FClose 1
  57.     TSTRING012(0) = "|"
  58.     TSTRING012(1) = "/"
  59.     TSTRING012(2) = "-"
  60.     TSTRING012(3) = "\"
  61.     INTEGER007 = 0
  62.     PrintLn "@X0FN@X0AE@X02W @X0FU@X0AS@X02ER @X0FD@X0AE@X02TECTED @X0F! @X0FA@X0CG@X04S@X01·@X0FB@X0Ca@X04ttle @X0FF@X0Ci@X04eld @X01- @X0FC@X0Cr@X04eating @X0FU@X0Cs@X04er @X0FL@X0Ci@X04st@X0F.@X0C.@X04."
  63.     Color 15
  64.     STRING009 = PPEPath() + "USER.LST"
  65.     If (Exist(STRING009)) Then
  66.         Delete STRING009
  67.     Endif
  68.     INTEGER005 = 0
  69.     INTEGER006 = 0
  70.     STRING010 = U_Name()
  71.     FCreate 6, STRING009, 1, 0
  72.     GetAltUser 1
  73.     If (STRING010 == U_Name()) Then
  74.         INTEGER005 = 1
  75.     Endif
  76.     Inc INTEGER006
  77.     STRING011 = U_Name()
  78.     Gosub LABEL004
  79.     FPutLn 6, STRING011
  80.     GetAltUser 2
  81.     INTEGER004 = 2
  82.     :LABEL001
  83.     If ((U_Name() == STRING010) && (INTEGER005 == 1)) Goto LABEL003
  84.     Backup 1
  85.     Print TSTRING012(INTEGER007)
  86.     Inc INTEGER007
  87.     If (INTEGER007 == 4) INTEGER007 = 0
  88.     If (STRING010 == U_Name()) INTEGER005 = 1
  89.     For INTEGER001 = 0 To INTEGER003
  90.         If (Upper(TSTRING007(INTEGER001)) == Upper(U_Name())) Goto LABEL002
  91.     Next
  92.     Inc INTEGER006
  93.     STRING011 = U_Name()
  94.     Gosub LABEL004
  95.     FPutLn 6, STRING011
  96.     :LABEL002
  97.     Inc INTEGER004
  98.     GetAltUser INTEGER004
  99.     Goto LABEL001
  100.     :LABEL003
  101.     FClose 6
  102.     Delete PPEPath() + "TOTAL.DAT"
  103.     FCreate 1, PPEPath() + "TOTAL.DAT", 1, 0
  104.     FPutLn 1, INTEGER006
  105.     FClose 1
  106.     Backup 1
  107.     PrintLn "@X0FD@X0Co@X04ne @X0F!"
  108.     End
  109.     :LABEL004
  110.     STRING011 = Replace(STRING011, "A", "a")
  111.     STRING011 = Replace(STRING011, "E", "e")
  112.     STRING011 = Replace(STRING011, "I", "i")
  113.     STRING011 = Replace(STRING011, "O", "o")
  114.     STRING011 = Replace(STRING011, "U", "u")
  115.     Return
  116.  
  117. ;------------------------------------------------------------------------------
  118. ;
  119. ; Usage report (before postprocessing)
  120. ;
  121. ; ■ Statements used :
  122. ;
  123. ;    1       End
  124. ;    1       Color 
  125. ;    10      Goto 
  126. ;    32      Let 
  127. ;    1       Print 
  128. ;    2       PrintLn 
  129. ;    9       If 
  130. ;    2       FCreate 
  131. ;    1       FOpen 
  132. ;    3       FClose 
  133. ;    1       FGet 
  134. ;    3       FPutLn 
  135. ;    2       Delete 
  136. ;    2       Gosub 
  137. ;    1       Return
  138. ;    6       Inc 
  139. ;    2       Backup 
  140. ;    3       GetAltUser 
  141. ;
  142. ;
  143. ; ■ Functions used :
  144. ;
  145. ;    196     +
  146. ;    6       ==
  147. ;    1       <>
  148. ;    2       <
  149. ;    2       <=
  150. ;    4       >=
  151. ;    6       !
  152. ;    5       &&
  153. ;    2       ||
  154. ;    2       Upper()
  155. ;    148     Chr()
  156. ;    1       Trim()
  157. ;    8       U_Name()
  158. ;    5       Replace()
  159. ;    1       String()
  160. ;    4       PPEPath()
  161. ;    1       CallId()
  162. ;    1       Exist()
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Analysis flags : R
  167. ;
  168. ; R - Read user ■ 5
  169. ;     User records are read, this may signify that someone wants to get
  170. ;     various informations about a user (for example his password), but
  171. ;     this may also be normal for a program accessing user records (for
  172. ;     example a User Editor)
  173. ;     ■ Search for : GETALTUSER
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Postprocessing report
  178. ;
  179. ;    2       For/Next
  180. ;    0       While/EndWhile
  181. ;    3       If/Then or If/Then/Else
  182. ;    0       Select Case
  183. ;
  184. ;------------------------------------------------------------------------------
  185. ;                 AEGiS Corp - Break the routines, code against the machines!
  186. ;------------------------------------------------------------------------------
  187.